home *** CD-ROM | disk | FTP | other *** search
/ MacUser Mac Bin 40 / MACUSER-MACBIN40A-1997-03.ISO.7z / MACUSER-MACBIN40A-1997-03.ISO / DEMO / SecretsJ DEMO / WATER.DIR / 00352_Script_352 < prev    next >
Text File  |  1996-12-02  |  415b  |  33 lines
  1. on startMovie
  2.   global loop,doors,eggwater,clock
  3.   set clock = 0
  4.   
  5.   if doors <> true then
  6.     set the visible of sprite 2 to false
  7.   end if
  8.   
  9.   sdset
  10. end
  11.  
  12. on stopmovie
  13.   sdsv
  14. end
  15.  
  16. on idle
  17.   
  18.     set tsp = checkcur(43)
  19.   case tsp of
  20.     38:docur(2)
  21.     39:docur(3)
  22.     40:docur(1)
  23.     41:docur(4)
  24.     42:docur(1)
  25.     43:docur(1)
  26.     -1:docur(0)
  27.   end case
  28.  
  29.   chmenu
  30.   
  31.   
  32. end idle
  33.